m_Minute = tmp_Minute
Private m_Year As Integer
<td><input type="text" value="<%=Year(now())%>" size="8" /></td>
m_Hour = tmp_Hour

Public Property Let()Property Let Day(tmp_Day As Integer)
Public Property Get()Property Get Second() As Integer

SystemTime.wHour = Hour
SystemTime.wMonth = Month
Public Property Get()Property Get Year() As Integer
else

End Property
关于DLL的注册，通常VB在本机上编译后，会自动将DLL注册；但如果你要放到IIS服务器上，请使用如下方法：
'--------------------

VB 6.0的类模块代码如下：
if Hour(now())-8>0 then
end function
</form>
Hour = m_Hour
function SetTime(strYear,strMonth,strDay)
Private m_Second As Integer
End Property
Public Property Get()Property Get Month() As Integer

End Property
'--------------------

("strDay"))
SystemTime.wMilliseconds = 0
类模块名称：timeset
m_Year = tmp_Year
1、将systimeset.dll拷贝到c:\WINDOWS\system32下；
Day = m_Day

obj.Day=strDay

'秒

m_Day = tmp_Day
4、一切完毕后，将IIS服务重新启动一次。
Private m_Hour As Integer

End Type
'年
在上面的设置完毕后，使用systimeset.dll组件的ASP代码页面如下：
Public Property Let()Property Let Hour(tmp_Hour As Integer)
set obj=Nothing
Option Explicit
SystemTime.wSecond = Second
End Property
wYear As Integer
Month = m_Month

Private Type SystemTime
End Property
response.Expires=0
</tr>
Public Function setup()Function setup() As Integer
'--------------------
SystemTime.wMinute = Minute

昨天一个朋友有个需求，是要通过WEB方式，修改IIS服务器上的时间，由于他的系统是ASP 3.0下开发的，所以本例子的代码是ASP的，不是ASP.NET，但是本人写这个文章是想抛砖引玉，毕竟编写程序关键的不是语言，更重要的是一种思想，把程序语言理解为一种工具，把编程思想理解为解决问题的思路和方法，那么编写出来的程序就是：利用“工具”按照解决问题的“思想”去解决一个问题。


End Property


setup = SetSystemTime(SystemTime)
Private SystemTime As SystemTime
<table>
<%
Second = m_Second

call SetTime(request.Form("strYear"),request.Form("strMonth"),request.Form

SystemTime.wDay = Day

wMilliseconds As Integer
Public Property Get()Property Get Minute() As Integer
'月

set obj=server.createobject("systimeset.timeset")
obj.setup
wDay As Integer
Private Declare Function SetSystemTime()Function SetSystemTime Lib "kernel32" (lpSystemTime As SystemTime) As Long
'--------------------
wMinute As Integer
<tr>
End Property
obj.Hour=8
End Property

wMonth As Integer
Private m_Minute As Integer
Minute = m_Minute
m_Month = tmp_Month
Public Property Get()Property Get Day() As Integer
obj.Hour=Hour(now())-8
if request("act")="modi" then
'由李锡远修改 修改日期：2006-08-31 修改项目：增加对年、月、日、秒的操作

Public Property Let()Property Let Minute(tmp_Minute As Integer)
Public Property Let()Property Let Second(tmp_Second As Integer)
wDayOfWeek As Integer
Public Property Let()Property Let Month(tmp_Month As Integer)
将上面的ASP代码页面粘贴到一个空的ASP文件中，然后在IIS中将站点设置好就可以了。（设置IIS虚拟目录也可以的。）
wHour As Integer
Private m_Day As Integer
首先，在VB 6.0中建立一个ActiveX Dll工程项目，信息如下：
3、因为修改服务器的时间，INTERNET来宾帐户不具有该权限，设立权限请打开控制面版中的“管理工具”，然后打开“本地安全策略”－－“用户权力指派”，双击“更改系统时间”，在弹出的对话框中点“添加用户或组”，将INETNET来宾帐户加入进来。
obj.Minute=Minute(now())

2、在开始菜单的运行里面输入：regsvr32 systimeset.dll （敲回车啊）
End Property
obj.Month=strMonth

复制代码 代码如下:

<form method="post" action="?act=modi">
End Property
'日

以上是所有实现的代码，有问题可以加我QQ：17020415
End Property
end if
'SystemTime.wDayOfWeek = 1

Private m_Month As Integer
Dim tmp
SystemTime.wYear = Year
m_Second = tmp_Second

复制代码 代码如下:

End Function
%>
wSecond As Integer
obj.Second=Second(now())
Year = m_Year
end if
首先，要感谢网友“小虎”，我是在网上看了他写的一篇关于用VB 6.0编写DLL组件FOR ASP的文章改写的，他的DLL代码只实现了改写小时和分钟，我增加了年、月、日、秒的修改。

<td><input type="submit" value="修改日期" /></td>
工程名称：systimeset
<td><input type="text" value="<%=Month(now())%>" size="5" /></td>
将其编译为systimeset.dll的文件。
End Property
Public Property Get()Property Get Hour() As Integer
obj.Year=strYear
Public Property Let()Property Let Year(tmp_Year As Integer)
<td><input type="text" value="<%=Day(now())%>" size="5" /></td>
</table>
<% @language="vbscript" %>